`resample` <-
function(x,...)UseMethod("resample")

